home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / example11.5 < prev    next >
Text File  |  2007-02-28  |  442b  |  21 lines
  1. 0010 DIM STACK(20,2), OP$ OF 4
  2. 0020 SP:=1
  3. 0030 REPEAT 
  4. 0040 INPUT "POP OR PUSH?": OP$
  5. 0050 IF OP$="POP" THEN POP
  6. 0060 IF OP$="PUSH" THEN PUSH
  7. 0070 UNTIL 2=1
  8. 1000 PROC PUSH 
  9. 1010 INPUT "ENTER TWO NUMBERS": LEFT',RIGHT'
  10. 1020 STACK(SP,1):=LEFT'
  11. 1030 STACK(SP,2):=RIGHT'
  12. 1040 SP:=SP+1
  13. 1050 ENDPROC PUSH
  14. 1060 PROC POP 
  15. 1070 IF SP=1 THEN STOP 
  16. 1080 SP:=SP-1
  17. 1090 LEFT':=STACK(SP,1)
  18. 1100 RIGHT':=STACK(SP,2)
  19. 1110 PRINT LEFT',RIGHT'
  20. 1120 ENDPROC POP
  21.